home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1988 December
/
64er_Magazin_88-12_1988_Markt__Technik_de_Side_A.d64
/
26zeilen demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
39 lines
0 :poke2053,143:load"generator 26",8,1
10 sys49179:sys49152:poke16383,255:poke49504,peek(53280)-128
11 b=25:print"[147]":gosub45:print26;:gosub46
12 print:print"zeile 0 wird gleich"
13 b=24:print"'festgenagelt'":gosub46:gosub45:gosub46
14 poke1,55:gosub45
15 print"auch beim bildschirmloeschen ist zeile 0bei poke1,55 nicht beeinflussbar !"
16 gosub46:print"[147]kann aber durch 'sys' befehle be- schrieben werden"
17 gosub46:sys49369,"sys49369,ausdr. / sys49358,spalte,ausdr."
18 print"ebenso kann zeile 0 durch sys 49168 geloescht werden !":gosub46
19 sys49168
20 print"als sonderzeichen werden nur [rvs on] und [rvs off] ausgefuehrt"
21 gosub46
22 x$="hier[146] ein kleines[146] beispiel mit[146] 40 zeichen[146]":sys49369,x$
23 gosub46
24 print"ein len(x$) befehl ergibt aber"len(x$):print"zeichen"
25 gosub46:print"[147]andere steuerzeichen werden nicht aus- gefuehrt,";
26 print"ausser [crsr right]"
27 gosub46
28 sys49369,"[145][145][145][145][157][157][157][157][145][145][145][145][157][157][157][157][157]"
29 gosub46
30 print"stoert der schwarze rand ?"
31 print"verursacher ist die speicherzelle 16383 jetzt werden die werte ";
32 print"von 0 bis 255 in die speicherzelle gepoked "
33 gosub46
34 fora=0to255:poke16383,a:next
35 gosub46
36 print"jetzt steht 0 drin":poke16383,0
37 print"die farbe des randes kann in 49504 geaendert werden"
38 gosub46:forb=0to127:poke49504,b:next:gosub46
39 print"er kann aber auch mit poke 49504,128 abgeschaltet werden"
40 gosub46:poke49504,128
41 gosub46:print"[147]zeile 0 wird durch poke 1,53 wieder freigegeben "
42 poke1,53:b=25:gosub46
43 gosub45:print26;:gosub46
44 end
45 fora=1tob:printa:next:return
46 poke198,0:wait198,1:return